基础部分和FORTRAN语言程序设计
(考试时间：120分钟，满分100分)
一、选择题（（1）-（40）题每小题1分，（41）-（50）题每小题2分，共和60分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1) 在计算机中,一个字长的二进制位数是
A) 8 B) 16 C) 32 D) 随CPU的型号而定
(2) 计算机网络的突出优点是
A) 速度快 B) 资源共享 C) 精度高 D) 容量大
(3) 计算机网络能传送的信息是:
A) 所有的多媒体信息 B) 只有文本信息
C) 除声音外的所有信息 D) 文本和图像信息
(4) 切断计算机电源后,下列存储器中的信息会丢失的是:
A) RAM B) ROM C) 软盘 D) 硬盘
(5) 十进制数127转换成二进制数是
A) 11111111 B) 01111111 C) 10000000 D) 11111110
(6) 要想打印存放在当前盘当前目录上所有扩展名为.TXT 的文件内容, 应该使用的DOS命令为
A) DIR *.TXT>PRN B) TYPE *.TXT>PRN
C) COPY *.TXT PRN D) COPY *.TXT>PRN
(7) 将当前盘当前目录及其子目录中的全部文件 (总量不足1.2MB) 复制到一张空的A盘的根目录下,应该使用的DOS命令为
A) XCOPY *.*A:\ /M B) XCOPY *.*A:\ /S
C) XCOPY *.*A:\ /P D) XCOPY *.*A:\ /A
(8) 在C盘根目录下执行PROMPT $p$g命令之后,DOS的提示符变为
A) C:> B) C:\> C) C> D) C:\
(9) DOS命令 "COPY CON DISP"中的CON代表
A) 子目录 B) 磁盘文件 C) 键盘 D) 显示器
(10) 结构化程序设计所规定的三种基本控制结构是
A) 输入、处理、输出 B) 树形、网形、环形
C) 顺序、选择、循环 D) 主程序、子程序、函数
(11) 要把高级语言编写的源程序转换为目标程序,需要使用
A) 编辑程序 B) 驱动程序 C) 诊断程序 D) 编译程序
(12) 英文小写字母d的ASCII码为100,英文大写字母D的ASCII码为
A) 50 B) 66 C) 52 D) 68
(13) Windows环境下,PrintScreen键的作用是
A) 复制当前窗口到剪贴板 B) 打印当前窗口的内容
C) 复制屏幕到剪贴板 D) 打印屏幕内容
(14) 在Windows环境下,为了终止应用程序的运行,应
A) 关闭该应用程序窗口 B) 最小化该应用程序窗口
C) 双击该应用程序窗口的标题栏 D) 将该应用程序窗口移出屏幕
(15) 下列各带有通配符的文件名中,能代表文件XYZ.TXT的是
A) *Z.? B) X*.* C) ?Z,TXT D) ?.?
(16) 在MS-DOS环境中生成一个FORTRAN77程序的可执行文件的顺序应该是
A）编辑、连接、编译 B）编辑、编译、连接
C）编译、连接、编辑 D）编译、编辑、连接
(17) 关于编译一个FORTRAN77源程序文件，下列说法中错误的是
A) 允许编译只有一个主程序而没有子程序的源文件
B) 允许编译有多个子程序的源文件
C) 允许编译只有一个子程序而没有主程序的源文件
D) 允许编译有多个主程序的源文件
(18) 下列关于FORTRAN77源程序编辑规则的叙述中，正确的是
A) 每一行都必须从第7列开始
B) 主程序第一行必须是PROGRAM语句
C) 每个源程序块的最后一行必须是END语句
D) 每个子程序中必须有一个RETURN语句
(19) 在FORTRAN77源程序中，续行标志符必须放在
A) 第1列 B) 第1-6列 C) 第6列 D) 第5列
(20) 下列关于"SUBROUTINE MAP(X，Y)"语句行的叙述中，不正确的是
A) 这是子程序的第一个语句 B) 字符串"MAP"是子程序名
C) 变量X是子程序的形参 D) 子程序执行后，MAP将返回整型数据
(21) FORTRAN77表达式"2/4+0.5"的值是
A) 0.5 B) 1 C) 1.0 D) 0
(22) 若在FORTRAN77中一个整型变量占2个字节，则该变量可以存放的数据值范围是
A) -32768～32767 B) -32768～32768
C) -65536～65535 D) -65536～65536
(23) 阅读下列FORTRAN77程序：
PI=3.14159265
WRITE(*,'(F7.4) ')PI
END
程序运行后输出结果是
A) 3.142 B) 3.1415 C) 0.31416 D) 3.1416
(24) 圆的直径存放在整型变量K之中，下列计算圆面积的表达式中正确的是
A) 3.1415926*K*K/4 B) 3.1415926*(K*K/4)
C) 3.1415926*(K/2)**2 D) 3.1415926*(K/2)*(K/2)
(25) 要判断"月收入M在2000元以上(含2000元)且5000元以下)不含5000元)"的职工，应该使用的逻辑表达式是
A) M .GE. 2000 .AND. M .LE. 5000
B) M .GE. 2000 .OR. M .LE. 5000
C) M .GE. 2000 .AND. M .LT. 5000
D) M .GE. 2000 .OR. M .LT. 5000
(26) 设FORTRAN77子程序如下：
SUBROUTINE SUB(I，X)
B=I+1
X=X+B
END
若主程序中的变量M，B已按I-N规则赋值，则调用上述子程序的语句中正确的是
A) CALL SUB(M，M) B) CALL SUB(M+4，B)
C) CALL SUB(B，B) D) CALL SUB(M，B+4)
(27) 下列不是FORTRAN77常量的是
A) (3.0,4.0) B) 3.1416D+00 C) 2/3 D) 'Very good!'
(28) 阅读下列FORTRAN77程序：
F=1.0
DO 20 K=3, 7, 3
DO 20 L=K-1, K
20 WRTTE(*,'(I3, F8.1)'K, F*K
END
程序运行结果的最后一行是
A) 3 6.0 B) 6 6.0 C) 6 180.0 D) 7 180.0
(29) 在FORTRAN77中，下列运算符的优先顺序是
A) 逻辑运算，关系运算，算术运算 B) 关系运算，逻辑运算，算术运算
C) 算术运算，关系运算，逻辑运算 D) 关系运算，算术运算，逻辑运算
(30) 使用FORTRAN77内部函数时，所给的自变量
A) 只能是常量 B) 只能是变量
C) 只能是常量或者变量 D) 可以是常量、变量或者表达式
(31) 设X=2.0, Y=8.0, Z=6.0, L=.TRUE.,则下列FORTRAN77表达式中值为.TRUE.的是
A) X+Z.GT.Y.AND.L B) .NOT.(Y.LT.Z+X).NEQV..NOT.L
C) .NOT.L.OR.(L.EQV.Y+X.EQ.Z) D) Y+X.GE.Z+X.AND.(L.AND..FALSE.)
(32) 下列输出语句行中正确的是
A) WRITE(*，*)(A(K，L)，K=1，3，L=1，3)
B) WRITE(*，*)A(K，L)，K=1，3，L=1，3
C) WRITE(*，*)((A(K，L)，K=1，3，)L=1，3)
D) WRITE(*，*)(A(K，L)，K=1，3)，L=1，3
(33) 给定下列FORTRAN77子程序如下：
SUBROUTINE SUB(K，A)
A=SQRT(K*K+1.0)
END
下列调用语句中正确的是
A) CALL SUB(N,N) B) CALL SUB(X,X)
C) CALL SUB(N,X*X) D) CALL SUB(11,X)
(34) 阅读下列FORTRAN77程序:
INTEGER AA(2,3)
DATA AA/1,2,3,4,6/
CALL S2D19(AA)
CALL S2D19(AA(1,2))
END
SUBROUTINE S2D19(BB)
INTEGER BB(2,2)
WRITE(*,'(1X,2I3)') BB(1,1),BB(2,2)
END
程序运行结果是
A) 1 4 B) 1 5 C) 1 4 D) 1 2
3 6 2 6 2 5 3 4
(35) 阅读下列FORTRAN77程序:
INTEGER A(3,3)
DO 10 K=1,3
DO 10 L=1,3
10 A(K,L)=K*10+L
WRITE(*,'(1X,3I3)')A
END
程序运行结果是:
A) 11 21 31 B) 11 12 13 C) 31 32 33 D) 33 32 31
12 22 32 21 22 23 21 22 23 32 22 21
13 23 33 31 32 33 11 12 13 31 21 11
(36) 阅读下列FORTRAN77程序:
WRITE(*,10)'YEAR:', 1996
10 FORMAT(/3X,A,I4)
END
程序运行结果是(^代表空格,下同)
A) ^^^^^YEAR:1996 B) ^^YEAR:1996
C) 空白行 D) 空白行
^^^^^YEAR:1996 ^^YEAR:1996
(37) 某函数子程序中使用了IMPLICIT、READ、COMPLEX和FUNCTION四种语句,其中属于可执行语句的是:
A) FUNCTION B) READ C) COMPLEX D) IMPLICIT
(38) 要想成功地打开名为"QW"的输出文件,应该使用语句
A) OPEN(UNIT=3,FILE='QW')
B) OPEN(3,FILE=QW)
C) OPEN(FILE='QW',3,STATUS='OLD')
D) OPEN(3,FILE=QW,STATUS=UNKNOWN)
(39) 阅读下列FORTRAN77程序:
INTEGER F
F(X,Y)=X+Y
A=-2.5
B=4.0
B=1.0+F(A,B)
WRITE(*,20)B
20 FORMAT(1X,F4.1)
END
程序运行的结果是:
A) 2.0 B) -1.5 C) -1.0 D) 3.0
(40) 阅读下列FORTRAN77程序:
X=0
DO 15 L=10, 5, 15
15 X=X+1.0
END
程序运行时执行循环体的次数是:
A) 0 B) 1 C) 2 D) 无穷
(41) 阅读下列FORTRAN77程序:
DIMENSION M(4,4)
DATA M/1,2,3,4,5,6,7,8,9，0,1,2,3,4,5,6/
DO 10 I=1,4
WRITE (*,100)(M(I,J),J=1,I)
10 CONTINUE
100 FORMAT(1X,4I2)
END
程序运行的结果是
A) 1 2 3 4 B) 1 5 9 3 C) 1 D) 1
6 7 8 6 0 4 2 6 5 6
1 2 1 5 3 7 1 9 0 1
6 6 4 8 2 6 3 4 5 6
(42) 阅读下列FORTRAN77程序:
CHARACTER*10 A, B*6
DO 10 I=1,10
A(I:I)=' '
10 COUNTINUE
A(1:5)='ABCDE'
B='FGHIJK'
A(4:9)=B
WRITE(*,100) A
100 FORMAT(1X,A)
END
程序运行结果是：
A) ABCDEFGHIJ B) ABCDEGHIJK C) ABCFGHIJK D) BCDEFGHIJK
(43) 阅读下列FORTRAN77程序：
INTRINSIC SIN， COS
WRITE(*，*)FUN(SIN，30.0)/FUN(COS,30.0)
END
FUNCTION FUN(F,X)
X=X*3.14159/180
FUN=F(X)
END
程序运行结果是
A) sin30°的值 B) cos30°的值 C) tg30°的值 D) ctg30°的值
(44) 阅读下列FORTRAN77程序：
X=0.0
Y=2.0
CALL SUB(X,Y,Z,3.0)
WRITE(*,'(1X,3F5.1)')X,Y,Z
END
SUBROUTINE SUB(A,B,X,Z)
A=A+1
B=B+2.0
Y=1.0
X=X+Y
END
程序运行结果是:
A) 2.0 5.0 4.0 B) 2.0 1.0 2.0
C) 1.0 4.0 4.0 D) 4.0 2.0 4.0
(45) 阅读下列FORTRAN77程序:
CHARACTER A(5,5)
DO 100 K=1,5
DO 100 J=1,5
N=K*(2-K)+(J-3)*(J-3)
IF(N.LT.0)A(K,J)='$'
IF(N.EQ.0)A(K,J)='0'
IF(N.GT.0)A(K,J)='*'
100 CONTINUE
WRITE(*,200)(（A(K,J), J=1,5） K=1,5)
200 FORMAT(1X,5A2)
END
程序运行的结果是
A) $$$$$ B) ***$$ C) $$$$$ D) *****
**0** **$$$ $$0$$ **0**
*$$$* *0$$$ $***$ *$$$*
$$$$$ **$$$ ***** $$$$$
$$$$$ ***$$ ***** $$$$$
(46) 阅读下列FORTRAN77程序:
DIMENSION N(20)
DO 10 M=1,20
N(M)=0
10 CONTINUE
K=5
DO 20 M=1,K
DO 20 J=1,K
N(J)=N(M)+1
20 CONTINUE
WRITE(*,*)N(K)
END
程序运行的结果是:
A) 8 B) 9 C) 18 D) 10
(47) 阅读下列FORTRAN77程序:
COMMON /COM/M(5),N(4)
CALL FIB
WRITE(*,'(1X,4I3)')N
END
SUBROUTINE FIB
COMMON /COM/J(5),K(4)
DO 10 I=1,4
K(I)=J(I+1)-J(I)
10 CONTINUE
END
BLOCK DATA
COMMON /COM/K(5),L(4)
DATA K/8,7,10,4,13/
END
程序运行的结果是:
A) 1 -3 6 -9 B) 7 10 4 13
C) -1 3 -6 9 D) -9 3 -6 9
(48) 阅读下列FORTRAN77程序:
INTEGER P(3,4)
DATA P/1,2,3,4,5,6,7,8,9,10,11,12/
CALL SUB(P)
WRITE(*,*)P(2,2)
END
SUBROUTINE SUB(A)
INTEGER A(12)
DO 10 K=1,12
M=A(K)
A(K)=A(12-K+1)
A(12-K+1)=M
10 CONTINUE
END
程序运行结果是：
A) 5 B) 6 C) 7 D) 8
(49) 阅读下列FORTRAN77程序：
N=0
DO 10 K=30，0，-2
DO 10 L=-10，10，1
10 N=N+1
WRITE(*，*)N
END
程序运行结果是：
A) 316 B) 326 C) 306 D) 336
(50) 阅读下列FORTRAN77程序：
COMMON A，B，C，D
A=1.0
B=2.0
C=3.0
D=4.0
CALL ABCD(2)
WRITE(*,*)A,C
END
SUBROUTINE ABCD(N)
COMMON B,C,D,A
IF(N.LE.0) THEN
B=A
C=D
ENDIF
END
程序运行结果是
A) 1.0 3.0 B) 1.0 4.0 C) 4.0 3.0 D) 4.0 2.0
二、填空题(每空2分，共40分)
请将每一个空的正确答案写在答案卡【1】至【20】序号的横线上，答在试卷上不得分。
(1) 为了要将当前盘目录中的可执行程序ABC.EXE的输出结果存放到当前盘当前目录中的文件OUT.TXT中,则应使用的DOS命令为【1】 。
(2) 计算机网络分为广域网和局域网,因特网属于【2】 。
(3) 要想在当前目录下方便地执行C盘\UCDOS目录中的程序,就应该先执行预设搜索路径的命令,该DOS命令为【3】 。
(4) 要查看当前目录中扩展名为.DAT的所有文件目录,应该使用的DOS 命令为【4】 。
(5) 在Windows环境下,当进行复制操作时,其复制的内容将存放在【5】中
(6) 下列FORTRAN77子程序的功能是用以下公式计算一组数据Z1,Z2,…,Zn的标准差σ：
σ2=(Z12 +Z22+…+Zn2)/n-[(Z1+Z2,+…+Zn)/n]2
请在程序中的下划线处填入合适的内容。
【6】 SIGMA(Z，N)
REAL Z(N)
SUMX=0.0
SUMX2=0.0
DO 10 K=1,N
【7】
SUMX=SUMX+X
SUMX2=SUMX2+X*X
10 CONTINUE
AV=SUMX/N
AV2=SUMX2/N
S2=AV2-AV*AV
SIGMA=【8】
END
(7) 下列FORTRAN77程序的功能是将30个学生的考试成绩读入数组A,然后统计并且输出最高的分数以及小于60分、60～80分与大于80分的三个分数段的学生数。请在程序中的下划线处填入合适的内容。
【9】 A(30), B, C(3)
DATA C/3*0/
READ(*,*)A
【10】
DO 10 K=2,30
IF(A(K).GT.B) B=A(K)
10 CONTINUE
DO 30 K=1,30
IF (A(K).LT.60)C(1)=C(1)+1
IF (A(K).GT.80)C(3)=C(3)+1
IF(A(K).LE.80 【11】 A(K).GE.60)C(2)=C(2)+1
30 CONTINUE
WRITE(*,*) B,C
END
(8) 下列FORTRAN77程序的功能是用对分法求出方程4.1x3-5.2x=11.8在区间(1，5)中的一个实数根，要求输出根的近似值和对分次数。请在程序中的下划线处填入合适的内容。
【12】 =4.4*X**3-5.2*X-11.8
DATA XL,XR,N/1.0,N/1.0,5.0,0/
10 N=N+1
X=(XL+XR)/2.0
FX=FUN(X)
IF (ABS(FX).LT.1E-6.OR.N.GE.1000)THEN
WRITE(*,'(1X,A2,F12.7,A5,I4)')'X=',X,'N=', N
ELSE
IF(FUN(XR)*FX.GE.0.0) THEN
XR=X
【13】
XL=X
ENDIF
【14】
ENDIF
END
(9) 下列FORTRAN77程序的功能是计算多项式y=2+2.1x+3.2x3+5.4x5 在x=1.7时的值。主程序调用了函数子程序POLY。请在程序中的下划线处填入合适的内容。
PROGRAM PVALUE
REAL A(6)
DATA A/【15】 /
DATA N，X/6， 1.7/
Y=POLY(A,N,X)
WRITE(*,'(1X,A5,6F5.1)')'a(k)=',A
WRITE(*,'(1X,A2,F5.1,A6,F8.2)')'X=',X,'; Y=',Y
END
FUNCTION POLY(B,M,V)
【16】
POLY=B(1)
FV=1.0
DO 10 K=2, M
FV=FV*V
10 POLY=POLY+【17】
END
(10) 下列FORTRAN77程序的功能是使用筛法筛选出N以内的所有素数并输出。其算法如下：
在N 以内的自然数列中先筛除2的倍数(不包括2)；在2之后未筛去的第一个数是3,于是再筛除3的倍数；在3之后未筛去的第一个数是5,于是再筛除5的倍数；如此重复下去，直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止。请在程序中下划线处填入合适的内容。
PARAMETER (N=100)
【18】 A(N),P(N)
A(1)=0
DO 10 K=2,N
10 A(K)=K
DO 20 K=3,N
20 IF(MOD(A(K),2).EQ.0)A(K)=0
ISR=SQRT(FLOAT(N))
DO 30 M=3,ISR,2
DO 30 K=M+2, N
30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)【19】
M=1
DO 40 K=1,N
IF(A(K).NE.0)THEN
P(M)=【20】
M=M+1
ENDIF
40 CONTINUE
WRITE(*,'(1X,10I8)')(P(K),K=1,M-1)
END
〖完〗
基础部分和FoxBASE程序设计试题
参考答案及评分标准
一、选择题（⑴-(40)题每题1分，(41)-(50)题每题2分，其60分）
(1) D (2) B (3) A (4) A (5) B
(6) C (7) B (8) B (9) C (10) C
(11) D (12) D (13) C (14) A (15) B
(16) B (17) C (18) A (19) C (20) B
(21) C (22) A (23) D (24) D (25) B
(26) D (27) B (28) D (29) A (30) C
(31) C (32) B (33) A (34) D (35) B
(36) D (37) B (38) C (39) C (40) D
(41) B (42) C (43) B (44) C (45) A
(46) B (47) C (48) C (49) B (50) C
二、填空题答案（每空2分，共40分）
(1) 【1】ABC >OUT.TXT 或者 ABC.EXE>OUT.TXT
(2) 【2】广域网
(3) 【3】PATH C:\UCDOS 或其它等效命令
(4) 【4】DIR *.DAT 或 DIR *.DAT/P 或 DIR *.DAT/W 或带其它参数也可
(5) 【5】剪贴板
(6) 【6】.NOT.婚姻状况 或 !婚姻状况
(7) 【7】INT(X/3)=X/3 或 X/3=INT(X/3)
【8】MOD(X,3)=0 或 0=MOD(X,3)
【9】ROUND(X/3,0)=X/3 或 X/3=ROUND(X/3,0)
(8) 【10】TOTAL TO SG ON 类别 FIELDS 数量, 总价
或TOTAL TO SG ON 类别 FIELDS总价, 数量
或TOTAL ON 类别FIELDS 数量, 总价TO SG
或TOTAL ON 类别FIELDS总价, 数量TO SG
只有TOTAL 给1分。
(9) 【11】.NOT.EOF() 或 !EOF()
【12】OTHERWISE 或至少包含前4个字母
【13】WITH 基本工资+奖金+津贴-扣发 注：WITH后的各项顺序不限
【14】SKIP 或 SKIP 1 或 SKIP +1
(10) 【15】ACCEPT 如果写成INPUT给1分
【16】FOUND() 或 .NOT.EOF() 或 !EOF()
【17】TO YN
(11) 【18】SUM 基本工资,奖金,津贴 TO JB,JJ,JT
或 SUM TO JB, JJ, JT基本工资,奖金,津贴
注：基本工资、奖金、津贴的顺序不限，但必须与JB、JJ、JT对应。
(12) 【19】INDEX ON 岗位+职工号 TO GW_ZG
或INDEX ON 岗位+职工号 TO GW_ZG.IDX
(13) 【20】SET ORDER TO 3
〖完〗
基础部分和FORTRAN程序设计试题
参考答案及评分标准
一、选择题（⑴-(40)题每题1分，(41)-(50)题每题2分，其60分）
(1) D (2) B (3) A (4) A (5) B
(6) C (7) B (8) B (9) C (10) C
(11) D (12) D (13) C (14) A (15) B
(16) B (17) D (18) C (19) C (20) D
(21) A (22) A (23) D (24) A (25) C
(26) B (27) C (28) B (29) C (30) D
(31) B (32) C (33) D (34) A (35) A
(36) D (37) B (38) A (39) A (40) A
(41) C (42) C (43) C (44) C (45) D
(46) B (47) C (48) A (49) D (50) A
二、填空题答案（每空2分，共40分）
(1) 【1】ABC >OUT.TXT 或者 ABC.EXE>OUT.TXT
(2) 【2】广域网
(3) 【3】PATH C:\UCDOS 或其它等效命令
(4) 【4】DIR *.DAT 或 DIR *.DAT/P 或 DIR *.DAT/W 或带其它参数也可
(5) 【5】剪贴板
(6) 【6】FUNCTION
【7】X＝Z(K)
【8】SQRT(S2)
(7) 【9】 INTEGER或者REAL
【10】 B=A(1)
【11】.AND.
(8) 【12】FUN(X)
【13】ELSE
【14】 GOTO 10
(9) 【15】 2.0, 2.1 0.0，3.2， 0.0，5.4
（注：顺序不可颠倒，小数点前后的0可以省略其中的一个。）
【16】DIMENSION B(M) 或者 REAL B(M)
【17】 B(K)*FV 或者 FV*B(K)
(10) 【18】INTEGER
【19】A(K)=0 或者 A(K)=0.0
【20】A(K)
|
